home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tv.d64 / slideshow.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  732b  |  24 lines
  1. 5 IF A=0 THEN DIM A$(25)
  2. 10 IF A=0 THEN A=1:LOAD"HRSUPP.D",8,1
  3. 15 IF A=2 THEN 120
  4. 20 BA=6*16^3:REM BASE ADDRESS
  5. 30 IN=BA
  6. 40 RS=BA+3
  7. 50 CL=BA+6
  8. 60 I=-1
  9. 70 I=I+1:READ A$(I):IF A$(I)<>"END" THEN 70
  10. 80 PRINT"HIT 'C' TO CONTINUE":FOR J=0TOI:PRINTJ;A$(J):NEXTJ
  11. 90 INPUT"WHICH NUMBER";N
  12. 100 IF N=I THEN GOSUB130:END
  13. 110 SYSIN:A=2:LOADA$(N),8,1
  14. 120 GET A$:IFA$="C"THENGOSUB130:GOTO80
  15. 125 GOTO120
  16. 130 SYSCL:SYSRS:RETURN
  17. 140 DATA DRAGON.D
  18. 150 DATA TANK.D
  19. 160 DATA POLISH.D
  20. 170 DATA BLITHER.D
  21. 180 DATA UNCLE.D
  22. 190 DATA GLOCKENFLUTE.D
  23. 200 DATA END
  24.